The data revolution
University of Sydney
The data revolution
Using data science to understand the social world
pref.trends.cis <-
na.omit(ddply(anes.combined.data, .(year, party.id2), summarize,
confidence.intervals = c("Median", "Upper", "Lower"),
"Economic dimension"=wtd.median(eco.dimension, ftf.weights),
"Racial dimension"=wtd.median(racial.dimension, ftf.weights),
"Social dimension"=wtd.median(social.dimension, ftf.weights)))
vote.map <- leaflet() %>%
addProviderTiles("CartoDB.Positron",
options= providerTileOptions(opacity = 0.99)) %>%
addPolygons(data = us.shape.2,
stroke = FALSE, fillOpacity = 0.5,
smoothFactor = 0.5,
color = ~pal.dat(votes)) %>%
clearBounds() %>%
addLegend("bottomright", pal = pal.dat,
values = us.shape.2$votes,
title = "Democratic two-party vote",
bins = 5, opacity = 1,
labFormat = labelFormat(suffix = '%', between = ', ',
transform = function(x) 100 * x))
setView(vote.map, -98.35, 39.50, 4)
ggplot() function.Dr Shaun Ratcliff
Unit coordinator and lecturer
Email: shaun.ratcliff@sydney.edu.au
Office: Room N416, Institute Building (H03)
Nick James
Tutor and guest lecturer
Email: njam4595@uni.sydney.edu.au
Office: Level 5, The School of Information Technologies, Building J12